home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)ta.d64 / basic math.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  8KB  |  237 lines
  1. 99 REM ****BASIC MATH****
  2. 100 REM ****AUTHOR****
  3. 105 REM ********************
  4. 110 REM *                  *
  5. 115 REM * GURMIT DHALIWAL  *
  6. 120 REM * 7904 TEAL STREET *
  7. 125 REM * MISSION, B.C.    *
  8. 130 REM * V2V 3G8          *
  9. 140 REM *                  *
  10. 145 REM * (604) 826 5048   *
  11. 150 REM *                  *
  12. 155 REM ********************
  13. 500 REM ****TITLE PAGE****
  14. 505 POKE808,225:POKE53281,0
  15. 510 PRINT"[147][144][185][185][185]     [185]    [185][185][185][185]  [185][185][185]  [185][185][185][185]
  16. 515 [153]"STOPGET  GET   GET GET   GET      GET   GET
  17. 520 PRINT"[144][161] [161]   [161]   [161]  [161]      [161]   [161]
  18. 525 [153]"STOPNEWNEW    NEWNEWNEWNEWNEW  NEWNEWNEWNEW   NEW   NEW
  19. 530 PRINT"[144][161] [161]   [161]   [161]     [161]   [161]   [161]
  20. 535 [153]"STOPGET  GET  GET   GET     GET   GET   GET
  21. 540 PRINT"[144][184][184][184]   [184]   [184]  [184][184][184][184] [160][184][184][184]  [184][184][184][184]
  22. 545 [153]"STOPPOSCLOSECLOSECLOSEPOSCLOSECLOSECLOSECLOSEPOSCLOSECLOSECLOSECLOSEPOSPOSPOSPOSPOSCLOSECLOSEPOSCLOSECLOSECLOSEPOS
  23. 550 PRINT"[144][161][161] [161][161]   [161] [161]     [161]    [161]   [161]
  24. 555 [153]"STOPGETCLOSEGETCLOSEGETCLOSECLOSEGETCLOSECLOSECLOSEGETCLOSECLOSECLOSECLOSEGETCLOSECLOSECLOSECLOSEGETCLOSECLOSECLOSEGET
  25. 560 PRINT"[144][162][160][162][160][162][160][160][162][162][162][162][162][160][160][160][160][162][160][160][160][160][162][162][162][162][162]
  26. 565 [153]"STOPGETCLOSECLOSECLOSEGETCLOSECLOSEGETCLOSECLOSECLOSEGETCLOSECLOSECLOSECLOSEGETCLOSECLOSECLOSECLOSEGETCLOSECLOSECLOSEGET
  27. 570 PRINT"[144][161][160][160][160][161][160][160][161][160][160][160][161][160][160][160][160][161][160][160][160][160][161][160][160][160][161]
  28. 575 [153]"STOPFRE   FRE  FRE   FRE    FRE    FRE   FRE
  29. 580 PRINT"PRESS ([129]RETURN) TO CONTINUE"
  30. 585 FORA=1TO15:FORB1=1TO280:POKE53280,A:
  31. 590 IFPEEK(197)=1THEN1000
  32. 595 POKE55415+B1,A:GOSUB2100:NEXTB1
  33. 597 FORB2=1TO280:POKE55815+B2,A:GOSUB2100
  34. 598 IFPEEK(197)=1THEN1000
  35. 599 NEXTB2
  36. 600 GOSUB2100:NEXTA
  37. 1000 REM ****SET MENU****
  38. 1005 PRINT"[147]":POKE53280,7:POKE53281,11
  39. 1010 PRINT""TAB(10)"1    INSTRUCTIONS":PRINT
  40. 1015 PRINTTAB(10)"2    ADDITION":PRINT
  41. 1020 PRINTTAB(10)"3    SUBTRACTION":PRINT
  42. 1025 PRINTTAB(10)"4    MULTIPLICATION":PRINT
  43. 1030 PRINTTAB(10)"5    DIVISION":PRINT
  44. 1035 PRINTTAB(10)"6    QUIT":PRINT
  45. 1040 E$=""
  46. 1045 INPUT"SELECT A NUMBER (1-6)";E$
  47. 1050 E=VAL(E$)
  48. 1055 IFE=1THEN1100
  49. 1060 IFE=2THEN1200
  50. 1065 IFE=3THEN1300
  51. 1070 IFE=4THEN1400
  52. 1075 IFE=5THEN1500
  53. 1080 IFE=6THEN1600
  54. 1085 GOTO 1000
  55. 1100 REM ****INSTRUCTIONS****
  56. 1101 PRINT"[147]":POKE53280,0:POKE53281,11:POKE53272,23
  57. 1102 PRINTTAB(15)"[194][193][211][201][195][160][205][193][212][200]":PRINT:PRINT
  58. 1103 PRINT"[212]HE PURPOSE OF THIS PROGRAM IS TO HELP  THE USER IMPORVE HIS/HER ";
  59. 1104 PRINT"KNOWLEDGE OF   THE BASICS OF MATH. [201]N ORDER TO USE THE PROGRAM ";
  60. 1105 PRINT"EFFECTIVELY PLEASE READ THE     INSTRUCTIONS CAREFULLY. [212]HE ";
  61. 1106 PRINT"INSTRUCTIONS ARE DIVIDED INTO 5 PARTS."
  62. 1107 PRINT"PRESS RETURN TO CONTINUE"
  63. 1108 IFPEEK(197)<>1THEN1107
  64. 1109 PRINT"[147]"TAB(12)"[208][193][210][212][160]1- [193][196][196][201][212][201][207][206]":PRINT
  65. 1110 PRINT"[201]F YOU WISH TO DO [193][196][196][201][212][201][207][206] PRESS NUMBER 2 FROM THE MAIN MENU. ";
  66. 1111 PRINT"[207]NCE YOU PRESS 2, YOU CAN CHOOSE A SKILL LEVEL BETWEEN 1  AND 50, ";
  67. 1112 PRINT"WHERE 1 IS THE EASIEST AND 50 IS THE HARDEST. [207]NCE YOU PICK A ";
  68. 1113 PRINT"SKILL     LEVEL, THE COMPUTER WILL ASK YOU TO ADD 2 NUMBERS. [212]HESE 2 ";
  69. 1114 PRINT"NUMBERS ARE PICKED BY THE COMPUTER USING THE RANDOM FUNCTION. ";
  70. 1115 PRINT"[201]F YOU  GIVE THE CORRECT ANSWER TO THE  QUESTION, YOU WILL HEAR A ";
  71. 1116 PRINT"SOUND AND YOU  WILL BE GIVEN ANOTHER QUESTION. [201]F YOU  GIVE AN ";
  72. 1117 PRINT"ANSWER WHICH IS INCORRECT, YOU WILL HEAR A SOUND AND YOU WILL ";
  73. 1118 PRINT"BE GIVEN THE CORRECT ANSWER."
  74. 1119 PRINT"PRESS RETURN TO CONTINUE"
  75. 1120 IFPEEK(197)<>1THEN1119
  76. 1121 PRINT"[147]"TAB(10)"[208][193][210][212][160]2- [211][213][194][212][210][193][195][212][201][207][206]":PRINT
  77. 1122 PRINT"[201]F YOUR WISH TO DO [211][213][194][212][210][193][195][212][201][207][206][160]PRESS 2  FROM THE MAIN MENU. [193]S ";
  78. 1123 PRINT"WITH [193][196][196][201][212][201][207][206],   YOU WILL BE ASKED TO CHOOSE A SKILL     LEVEL BETWEEN ";
  79. 1124 PRINT"1 AND 50. [207]NCE YOU CHOOSE A SKILL LEVEL, THE COMPUTER WILL ASK ";
  80. 1125 PRINT"YOU TO FIND THE DIFFERENCE BETWEEN 2 RANDOM NUMBERS. [193]GAIN, YOU ";
  81. 1126 PRINT"WILL HEAR A SOUND  IF YOU ANSWER THE QUESTION CORRECTLY AND YOU ";
  82. 1127 PRINT"WILL BE ASKED ANOTHER QUESTION. [201]F YOU  ANSWER INCORRECTLY, YOU ";
  83. 1128 PRINT"WILL HEAR A SOUND AND YOU WILL BE TOLD THE CORRECT ANSWER BEFORE ";
  84. 1129 PRINT"CONTINUING."
  85. 1130 PRINT"PRESS RETURN TO CONTINUE"
  86. 1131 IFPEEK(197)<>1THEN1130
  87. 1132 PRINT"[147]"TAB(09)"[208][193][210][212][160]3- [205][213][204][212][201][208][204][201][195][193][212][201][207][206]":PRINT
  88. 1133 PRINT"[201]F YOU WISH TO DO [205][213][204][212][201][208][204][201][195][193][212][201][207][206] PRESS 4 FROM THE MAIN MENU. [193]S ";
  89. 1134 PRINT"WITH [211][213][194][212][210][193][195][212][201][207][206] YOU WILL BE ASKED TO CHOOSE A SKILL    LEVEL ";
  90. 1135 PRINT"BETWEEN 1 AND 50. [207]NCE YOU CHOOSE A SKILL LEVEL, THE COMPUTER ";
  91. 1136 PRINT"WILL ASK YOU TO MULTIPLY 2 RANDOM NUMBERS. [193]GAIN, IF YOU ";
  92. 1137 PRINT"ANSWER CORRECTLY, YOU WILL HEAR A  SOUND AND YOU WILL BE ASKED ";
  93. 1138 PRINT"ANOTHER     QUESTION. [201]F YOU ANSWER INCORRECTLY, YOU WILL HEAR A ";
  94. 1139 PRINT"SOUND AND YOU WILL BE TOLD THE CORRECT ANSWER BEFORE GOING ANY ";
  95. 1140 PRINT"    FURTHER."
  96. 1141 PRINT"PRESS RETURN TO CONTINUE"
  97. 1142 IFPEEK(197)<>1THEN1142
  98. 1143 PRINT"[147]"TAB(12)"[208][193][210][212][160]4- [196][201][214][201][211][201][207][206]":PRINT
  99. 1144 PRINT"[201]F YOU WISH TO DO [196][201][214][201][211][201][207][206] PRESS 5 FROM THE MAIN MENU. [193]S WITH ";
  100. 1145 PRINT"[205][213][204][212][201][208][204][201][195][193][212][201][207][206],  YOU WILL BE ASKED TO CHOOSE A SKILL     LEVEL ";
  101. 1146 PRINT"BETWEEN 1 AND 50. [207]NCE YOU CHOOSE A SKILL LEVEL, THE COMPUTER ";
  102. 1147 PRINT"WILL ASK YOU TO DIVIDE ONE NUMBER INTO ANOTHER.     [193]GAIN, IF YOU ";
  103. 1148 PRINT"ANSWER CORRECTLY, YOU WILL HEAR A SOUND AND YOU WILL BE ASKED ";
  104. 1149 PRINT"    ANOTHER QUESTION. [201]F THE ANSWER IS WRONG, YOU WILL HEAR A ";
  105. 1150 PRINT"SOUND AND YOU WILL BE  TOLD THE CORRECT ANSWER BEFORE ";
  106. 1151 PRINT"         CONTINUING."
  107. 1152 PRINT:PRINT"[206][207][212][197]: [201]F YOU CHOOSE A SKILL LEVEL BELOW 20, THE ANSWER TO THE ";
  108. 1153 PRINT"QUESTION WILL BE  AN INTEGER. [201]F THE SKILL LEVEL IS 20 OR  OVER, ";
  109. 1154 PRINT"THE ANSWER [205][193][217][160][206][207][212] BE AN INTEGER. [201]F THE ANSWER IS NOT AN ";
  110. 1155 PRINT"INTEGER, ROUND IT TO TO NEAREST INTEGER."
  111. 1156 PRINT"PRESS RETURN TO CONTINUE"
  112. 1157 IF PEEK(197)<>1 THEN1156
  113. 1158 PRINT"[147]"TAB(14)"[208][193][210][212][160]5- [209][213][201][212]":PRINT
  114. 1159 PRINT"[215]HEN YOU QUIT, YOU SCORE WILL BE SHOWN  ON THE SCREEN IN PERCENTAGE.
  115. 1160 [153]"PRESS RETURN TO CONTINUE"
  116. 1161 [139][194](197)[179][177]1[167]1160
  117. 1162 [151]53272,21:[137] 1000
  118. 1200 [143] ****ADDITION****
  119. 1210 [141]1700
  120. 1220 [141]1800:J[178]J[170]1
  121. 1225 ANS$[178]""
  122. 1230 [153]"LOAD"[163]15)"ADDITION":F[178]16
  123. 1235 [153]"":[151]211,F:[153]C
  124. 1240 [141]2300
  125. 1245 [151]211,14:[153]"+";:[151]211,F:[153]D:[151]211,13:[153]"ANDANDANDANDANDANDANDANDAND"
  126. 1250 [153]"PRESS 'Q' TO RETURN TO MENU"
  127. 1255 [153]"":[153][163]14):[133]ANS$
  128. 1260 [139]ANS$[178]""[167]1225
  129. 1265 [139] [200](ANS$,1)[178]"Q"[167]J[178]J[171]1:[137]1005
  130. 1270 [139][197](ANS$)[178]C[170]D[167][141]1900
  131. 1275 [139][197](ANS$)[179][177]C[170]D[167][141]2000
  132. 1280 [137]1220
  133. 1300 [143] ****SUBTRACTION****
  134. 1305 [141]1700
  135. 1310 [141]1800
  136. 1320 [139]G[179]15[175]D[177]C[167]1310
  137. 1325 J[178]J[170]1
  138. 1330 ANS$[178]""
  139. 1335 [153]"LOAD"[163]13)"SUBTRACTION":F[178]16
  140. 1340 [153]"":[151]211,F:[153]C
  141. 1345 [141]2300
  142. 1350 [151]211,14:[153]"-";
  143. 1355 [151]211,F:[153]D:[151]211,13:[153]"ANDANDANDANDANDANDANDANDAND"
  144. 1360 [153]"PRESS 'Q' TO RETURN TO MENU"
  145. 1365 [153]"":[153][163]14):[133]ANS$
  146. 1370 [139]ANS$[178]""[167]1335
  147. 1375 [139] [200](ANS$,1)[178]"Q"[167]J[178]J[171]1:[137]1005
  148. 1380 [139][197](ANS$)[178]C[171]D[167][141]1900
  149. 1385 [139][197](ANS$)[179][177]C[171]D[167][141]2000
  150. 1390 [137]1310
  151. 1400 [143] ****MULTIPLICATION****
  152. 1405 [141]1700
  153. 1410 [141]1800
  154. 1415 [139]D[177]C[167]1410
  155. 1420 J[178]J[170]1
  156. 1425 ANS$[178]""
  157. 1430 [153]"LOAD"[163]11)"MULTIPLICATION":F[178]16
  158. 1435 [153]"":[151]211,F:[153]C
  159. 1440 [141]2300
  160. 1445 [151]211,14:[153]"X";:[151]211,F:[153]D:[151]211,13:[153]"ANDANDANDANDANDANDANDANDAND"
  161. 1450 [153]"PRESS 'Q' TO RETURN TO MENU"
  162. 1455 [153]"":[153][163]14):[133]ANS$
  163. 1460 [139] ANS$[178]""[167]1425
  164. 1465 [139][200](ANS$,1)[178]"Q"[167]J[178]J[171]1:[137]1005
  165. 1470 [139][197](ANS$)[179][177]C[172]D[167][141]2000
  166. 1475 [139][197](ANS$)[178]C[172]D[167][141]1900
  167. 1480 [137]1410
  168. 1500 [143] ****DIVISION****
  169. 1505 [141]1700
  170. 1510 [141]1800:J[178]J[170]1
  171. 1515 I[178][181](C[173]D)
  172. 1520 [139]G[177]19[175]I[179](C[173]D)[171].489[167]I[178]I[170]1
  173. 1525 ANS$[178]""
  174. 1530 [153]"LOAD"[163]15)"DIVISION":F[178]16
  175. 1535 [153]"":[151]211,F:[153]C
  176. 1540 [141]2300
  177. 1545 [151]211,13:[153]"-:-";:[151]211,F:[153]D:[151]211,14:[153]"ANDANDANDANDANDANDANDANDAND"
  178. 1550 [153]"PRESS 'Q' TO RETURN TO MENU"
  179. 1555 [153]"":[153][163]14):[133]ANS$
  180. 1560 [139] ANS$[178]""[167]1525
  181. 1565 [139][200](ANS$,1)[178]"Q" [167]J[178]J[171]1:[137]1005
  182. 1570 [139][197](ANS$)[178]I[167][141]1900
  183. 1575 [139][197](ANS$)[179][177]I[167][141]2000
  184. 1580 [137]1510
  185. 1600 [143] ****QUIT****
  186. 1605 [151]53281,0
  187. 1610 [139]J[179][178]0[167]1640
  188. 1615 L[178][181](K[173]J[172]100):[153]"LOAD"
  189. 1620 [129]T[178]1[164]30:[151]1388[170]T,224:[130]T
  190. 1625 [153]""[163]10)"OPENYOUR SCORE IS"L"%"
  191. 1630 [129]U[178]1[164]30:[151]1548[170]U,224:[130]U
  192. 1635 [129]Y[178]15[164]1[169][171]1:[151]53280,Y:[129]Y1[178]1[164]100:[130]Y1:[130]Y
  193. 1640 [151]808,237:[158] 64715
  194. 1700 [143] ****SELECT LEVEL****
  195. 1705 G$[178]""
  196. 1710 [133]"LOADSELECT SKILL LEVEL (1-50)";G$
  197. 1715 G[178][197](G$):[139]G[179]1[176]G[177]50[167]1710
  198. 1720 [142]
  199. 1800 [143] ****QUESTION****
  200. 1805 C[178][181]((9[172]G)[172][187](.))[170]1
  201. 1810 D[178][181]((9[172]G)[172][187](.))[170]1
  202. 1815 [139]E[178]4[167]C[178][181](C[173]2):D[178][181](D[173]3):[137] 1825
  203. 1820 [139]E[178]5[175]G[179]20[175]C[173]D[179][177][181](C[173]D)[167]1810
  204. 1825 [142]
  205. 1900 [143] ****CORRECT ANSWER****
  206. 1905 K[178]K[170]1
  207. 1910 [141]2200
  208. 1915 S[178]54272:[151]S[170]24,15:[151]S[170]5,0:[151]S[170]6,247:[151]S[170]4,17:[151]S[170]1,40:[151]S,0
  209. 1920 [129]T[178]1[164]300:[130]:[151]S[170]4,16:[151]S[170]1,0:[151]S,0:[142]
  210. 2000 [143] ***INCORRECT ANSWER****
  211. 2005 S[178]54272:[151]S[170]24,15:[151]S[170]5,45:[151]S[170]6,165
  212. 2010 [151]S[170]4,33:[151]S[170]1,6:[151]S,5
  213. 2015 [129]T[178]1[164]300:[130]:[151]S[170]4,32:[151]S[170]1,0:[151]S,0
  214. 2020 [139]E[178]2[167]N[178]C[170]D
  215. 2025 [139]E[178]3[167]N[178]C[171]D
  216. 2030 [139]E[178]4[167]N[178]C[172]D
  217. 2035 [139]E[178]5[167]N[178]I
  218. 2040 [153]"CORRECT ANSWER WAIT      CMDCMDCMDCMDCMDCMDCMD "N"              "
  219. 2045 [153]"  PRESS SPACE BAR TO CONTINUE  "
  220. 2050 [139][194](197)[179][177]60[167]2050
  221. 2055 [142]
  222. 2100 [143] ****MUSIC****
  223. 2105 J1[178][181]([187](0)[172]255)
  224. 2110 J1[178][181]([187](0)[172]255)
  225. 2115 S[178]54272:[151]S[170]24,15:[151]S[170]5,0:[151]S[170]6,247:[151]S[170]4,J1:[151]S[170]1,40:[151]S,0
  226. 2120 [129]T[178]1[164]25:[130]:[151]S[170]4,17:[151]S[170]1,0:[151]S,0:[142]
  227. 2200 [143] ****COLOR CHANGE****
  228. 2205 [153]:[129]T[178]15[164]7[169][171]1:[151]53280,T:[129]Y[178]1[164]20:[130]:[130]:[142]
  229. 2300 [143] ****NUMBER PLACEMENT****
  230. 2305 [139]C[177]9[175]D[179]10[175][168]C[177]99[167]F[178]F[170]1
  231. 2310 [139]C[179]10[175]D[177]9[175][168]D[177]99[167]F[178]F[171]1
  232. 2315 [139]C[177]99[175]D[179]10[167]F[178]F[170]2
  233. 2320 [139]C[179]10[175]D[177]99[167]F[178]F[171]2
  234. 2325 [139]C[177]99[175]D[179]100[175][168]D[179]10[167]F[178]F[170]1
  235. 2330 [139]C[179]100[175]D[177]99[175][168]C[179]10[167]F[178]F[171]1
  236. 2335 [142]
  237.